home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / shared.dir / 00676_Script_676 < prev   
Text File  |  1994-12-01  |  646b  |  26 lines
  1. on importQT
  2.   
  3.   repeat with castNum = 1 to the number of castMembers
  4.     if ( the castType of cast castNum = #digitalVideo  ) then
  5.       put the filename of cast castNum into movName
  6.       set oldDel = the itemDelimiter
  7.       if ( movName contains "\" ) then
  8.         set the itemDelimiter = "\"
  9.          put "PROJECT5:" into item 1 of movName
  10.       else
  11.         set the itemDelimiter = ":"
  12.       end if
  13.       
  14.       put "QTMOVS" into item 5 of movName
  15.       
  16.       set the itemDelimiter = oldDel
  17.       -- for debugging
  18.       put castNum movName
  19.       importFIleInto cast castNum,movName
  20.     end if
  21.   end repeat
  22.   
  23. end
  24.  
  25.  
  26.